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FORTRAN 

FORTRAN 2.3 provides a scientific language for programming under 
control of the SCOPE Operating System on Control Data 6000 series 
computers. FORTRAN is compatible with FORTRAN II, FORTRAN IV 
and FORTRAN VI languages. 



Expressions and Statements 

Arithmetic, logical, relational, and masking operations may be speci- 
fied for the evaluation of expressions. Arithmetic expressions may 
contain any combination of arithmetic modes. Relational expressions 
contain arithmetic expressions separated by relational operators. 
Logical expressions may contain logical variables, logical constants, 
and relational expressions separated by logical operators. The masking 
expression is a generalized form of the logical expression in which the 
variables are of types other than logical. 

Replacement statements may be arithmetic, logical and masking. 



Variable and Function Types 

Variable and function types may be implied as real or integer by the 
initial character or explicitly defined by a Type declaration as 

COMPLEX INTEGER 

REAL LOGICAL 

DOUBLE or DOUBLE PRECISION 



Control Statements 

Control statements alter sequential execution of statements, perform 
tests and iterations, and terminate subprograms. 



GOTO 


IF 


PAUSE 


DO 


CONTINUE 
STOP 


END 



Input/Output 

Input/output statements permit the programmer to make use of com- 
puter efficiency with a complete range of input/output formats. 

PRINT BUFFER WRITE 

PUNCH READ 



Functions and Subprograms 

Statements and statement sequences may be written as statement func- 
tions and as main programs, subroutines, and functions. 



Library 

The FORTRAN library provides a full set of mathematical and utility 
functions and subroutines. 




FORTRAN PROGRAM EFFICIENCY HINTS 

Same mode variables and constants in an arithmetic expression 

Reduced use of subscripts 

Constant subscripts rather than variable 

Arguments in common rather than calling list 

Non-varying values computed before entering DO loop 

Avoid function names as parameters in subprogram calling sequences 

Limited use of logical mode 



Constants 

Integer 
Octal 

Real 

Double 



Form 



FORTRAN ELEMENTS 
Examples 



Complex 



Hollerith 



Logical 



n,n„ ... n 
I I m 




2 


lsmsl8 




247 
314159265 


On. ... n 
1 m 




7777777700000000 B 


6sms20 




0231 46541 


n. . . . n B 
1 m 




0000077 


n. n_ . . . n E±ex 
1 £- m 


P 10 


3.14 


l==m<15 




.0749 
314. E05 
.3E01 


n. n„ . . . n D±ex 
l ^ m 


P 10 


37986324.3201 D+01 


l<msl8 




3.1415D0 


( V2 ) 




(1 .,6.55) 


real numbers 




(-15. ,16. 7) 


r, = real part, 




(0.,-l.) 


r„ = imaginary part 






nHf. f„ . . . f 
1 ^ n 




7HGOGETIT 


IsnslO for a 




3HSON 



replacement statement 
1 < n £ 1 36 for a 
format statement 
1 < ns 1 307 for a 
DATA statement 

f. alphanumeric character 5HTHANX 

• TRUE. .T. all one bits 

or stored as 
.FALSE. ,F. all zero bits 

Subscripts 

For DIMENSION A(L,M,N) the location of A(i,j,k) with respect to 
first element of A is 

A+(i-l+L*(j-l+M*(k-l)))*E 
E is the number of words occupied by each element of A. 



A subscript may be: 

Integer constant 

Simple integer variable 

Simple integer arithmetic expression 



Examples: 

(U) 

(1+3, J+3, 2 
(3*K*l+3) 


*K 


+1) 






Variables 






Form 


Exam 


Simple integer 






a.a„...a 
1 2 m 

1 sm<7 

a l,J,K,L,M,or N 

a„ - a 7 Alphanumeric 


N 

I2S04 
M58 


Simple real 






a.a n . . .a 
1 2 m 

1 <tnS7 


VECTOR 
SPOILS 



a. Alphabetic other than A65 

l,J,K,L,M,or N 

a„ - a_Alphanumeric 



Subscripted integer a^. . .a (i,j,k) NERVE (6,8,6) 

l£m<7 LO (J) 

a l,J,K,L,M,or N JEL (l,M,3) 

a„ -a_ Alphanumeric 

Subscripted real a^. . .a^ (i,j,k) TIMIE (J,K,L) 

ls m s7 m QL(1) 

a Alphabetic other than ROGER (2,2,1) 

l,J,K,L,M,or N 

a„ - a 7 Alphanumeric 

Variables defined by Type declarations begin with any letter. 



FORTRAN STATEMENTS 

A subprogram is compiled in one of two modes: 

FORTRAN IV 
FORTRAN II 

Subprogram Statements 

PROGRAM name (f,,...,^) 

FORTRAN VI PROGRAM name (f| , . . . J n ) 

FORTRAN IV PROGRAM name (f,,...,^) 

FORTRAN II PROGRAM name (f,,...,^) / Parameter 

SUBROUTINE name ( Pl ,...,p m ) I list may 

FORTRAN VI SUBROUTINE name (p r ...,P m ) ( omitted 

FORTRAN IV SUBROUTINE name ( Pl ,...,p m ) 

FORTRAN II SUBROUTINE name (p-, , . . .,p m ) 

CALL name (pi , . . ^P m ) 

m < 60 n £ 50 
FUNCTION name (p^.-wPj 
type FUNCTION name ( P] , . . .,p m ) 
FORTRAN VI FUNCTION name ( P] ,...,p m ) 
FORTRAN VI type FUNCTION name (p ] , . - - ,F 
FORTRAN IV FUNCTION name ( Pl ,...,p m ) 
FORTRAN IV type FUNCTION name ( Pl ,...,F 
FORTRAN II FUNCTION name ( Pl ,..., P J 
FORTRAN II ty P e FUNCTION name ( P] ,..., P| 
BLOCK DATA 

EXTERNAL name^, name 2 , . • • 
RETURN 
ENTRY name 



Data Declaration and 
Storage Allocation Statements 

COMPLEX list 

DOUBLE list 

DOUBLE PRECISION list 

REAL list 

INTEGER list 

LOGICAL list 

DIMENSION Vl ,v 2 ,...,v n 

COMMON/^/listj/lj/listj. . . 

EQUIVALENCE (cyty. . .),(a 2 ,b 2 ,. . .),. . ■ 

DATA list 1 /a 1 ,. ..,a n /,\\sf 2 /b v . . .,bj,. . 

DATA (list 3 =c r . . .,c n ),(list 4 =d r . . .,d n ),. . 

Statement Function 

name (p , . . . ,p )=expression 

Replacement Statements 

a = Arithmetic expression 
I = Logical expression 
m= Masking expression 

Control Statements 

GOTO n 

GOTOi,^,...,^) 

GOTO i 
ASSIGN n to i 
GOTO ( ni ,...,n.),i 

IF (a) n ,n„,ng 

IF(|)s 
IF(|)n r n 2 



'2'' n 3 



DO n i=m, ,m ,m 

CONTINUE 

PAUSE 
PAUSE n 
STOP 

STOPn 

END 



Format Statement and Specifications 

FORMAT (spec,,..., specj 



Spec. 



Ew.d Single precision floating point with exponent 
Fw.d Single precision floating point without exponent 
Dw.d Double precision floating point with exponent 



Decimal integer 

Alphanumeric, right justified, leading zeros 

Octal integer 

Alphanumeric, left justified, with trailing blanks 

Logical 

Scaling factor 



Iw 
Rw 
Ow 
Aw 
Lw 
nP 

Complex values are converted by a pair of consecutive Ew.d 
or Fw.d. 

wX lntra-1 ine spacing 

* * | Heading and labeling, Hollerith characters 

/ Begin new record 

Printer Carriage Control 

Resulting PRINT Operation 
Double space before printing 
Eject page before printing 
Suppress spacing before printing 
Single space before printing 



Character in first column 

1 



blank or other than above 

Input/Output and Data Transmission 



READ (i,n) list 

READ INPUT TAPE i,n,list 
WRITE (i,n) list 

WRITE OUTPUT TAPE i,n,list 
READ (i) list 

READ TAPE i,list 
WRITE (i) list 

WRITE TAPE i,list 
IF(EOF,i)n r n 2 
IF (ENDFILE i) ryr^ 

END FILE i 
REWIND i 
BACKSPACE i 
BUFFER IN (i,m) list 
BUFFER OUT (i,m) list 
IF (UNIT, i)n 1 ,n 2 ,n 3 ,n 4 

n. Busy n„ EOF 

n„ Complete n , Parity error 

NAMELIST /y/a/y/a^. . ./y/a 



READ n, list 
PRINT n, list 
PUNCH n, list 
ENCODE (c,n,v) L 
DECODE (c,n,v) L 



FORTRAN FUNCTIONS 
In-Line Functions 



ABS(x) 


Absolute value 


Real to real 


AIMAG(c) 


Imaginary part of 
complex 


Complex to real 


AINT(x) 


Truncation, integer 


Real to real 


AMAX0(i ,i 2 ,...) 


Maximum argument 


Integer to real 


AMAXl(x r x 2 ,...) 


Maximum argument 


Real to real 


AMIN0(i r i 2 ,...) 


Minimum argument 


Integer to real 


AMINl( Xl ,x 2 ,...) 


Minimum argument 


Real to real 


AMOD(x 1 ,x 2 ) 


x. modulo x„ 


Real to real 


AND(x,,..,x ) 
M n 


Boolean AND of 

X. ,. . .,x 

1 n 


Logical 


CMPLX(x ] ,x 2 ) 


Real to complex 
(x 1 + ix 2 ) 


Real to complex 


COMPL(x) 


Complement of x 


Logical 


CONJG(c) 


Conjugate of c 


Complex to complex 


DIM(x.,x 2 ) 


If x, > x 2 :x -x 2 
If x £ x 2 :0 


Real to real 


DMAX1 (d ,d 2 , . . . ) 


Maximum argument 


Double to double 


DMINl(d l; d 2 ,...) 


Minimum argument 


Double to double 


FLOAT(i) 


Integer to real 


Integer to real 


IABS(i) 


Absolute value 


Integer to integer 


IDIM(i r i 2 ) 


If i^ i 2 :i r i 2 
If i 1 < i 2 :0 


Integer to integer 


IFIX(x) 


Real to integer 


Real to integer 



INT(x) 

ISIGN(i r i 2 ) 

MAX0(i r i 2 ,...) 

MAXl(x r x 2 ,...) 

MIN0(i r i 2 ,...) 

MINl(x ,x 2 ,...) 

MOD(i r i 2 ) 

OR(x.,...,x ) 
I n 

REAL(c) 
SIGN(x.,xJ 



ACOS(x) 
ALOG(x) 
ALOGlO(x) 

ASIN(x) 

ATAN(x) 

ATAN2(x,,x 

CABS(c) 

CCOS(c) 

CEXP(c) 

CLOG(c) 

COS(x) 

CSIN(c) 

CSQRT(c) 

DABS(d) 



l'~2' 



Truncation, integer 
Sign of i 2 times | ii| 
Maximum argument 
Maximum argument 
Minimum argument 
Minimum argument 



Boolean OR of 
x. , . . .,x 



Real to integer 
Integer to integer 
Integer to integer 
Real to integer 
Integer to integer 
Real to real 
Integer to integer 
Logical 



Real part of complex Complex to real 

Sign of xn times |x|| Real to real 



Arccosine 

Natural log of x 

Log to the base 
10 of x 



Library Functions 

Real to real 
Real to real 
Real to real 

Real to real 



Arctangent x radians Real to real 
Arctangent x./x„ Real to real 

Absolute value 
Complex cosine 
Complex exponent 
Complex log 
Cosine x radians 
Complex sine 



Complex to real 
Complex to complex 
Complex to complex 
Complex to complex 
Real to real 
Complex to complex 



Complex square root Complex to complex 

Absolute value Double to real 



DATAN(d) 


Double arctangent 


Double 


to double 


DATAN2(d ,d 2 ) 


Double arctangent: 
d/d 2 


Double 


to double 


DBLE(x) 


Real to double 


Real to 


double ■ 


DCOS(d) 


Double cosine 


Double 


to double 


DEXP(d) 


Double exponent 


Double 


to double 


DLOG(d) 


Natural log of d 


Double 


to double 


DLOGlO(d) 


Log to base 10 of d 


Double 


to double 


DMOD(d) 


d. modulo d„ 


Double 


to double 


DSIGN(d d 2 ) 


Sign of: d2 times d-| 
in absolute value 


Double 


to double 



DSIN(d) 

DSQRT(d) 
EXP(x) 
IDINT(d) 
LEGVAR(a) 



LENGTH(i) 

RANF(i) 

SNGL(d) 

SIN(x) 
SQRT(x) 
TAN(x) 
TANH(x) 

LOCF(a) 
XLOCF(a) 



Sine of double pre- 
cision argument 

Square root of double 

e to xth power 

Double to integer 

Returns -1 if a 
indefinite , 
+1 if a out of range, 
if a normal 

Number of words 
read on unit i after 
BUFFER IN 



Double to double 

Double to double 

Real to real 

Double to integer 
Real to integer 



Integer to integer 



Random number 


Integer to real 


generator 




Double to real 


Double to real 


(unrounded) 




Sine x radians 


Real to real 


Square root of x 


Real to real 


Tangent x radians 


Real to real 


Hyperbolic tangent 


Real to real 


x radians 




Address of argument a 


Integer 


Address of argument a 


Integer 



LIBRARY SUBROUTINE 



DISPLA (nH name, name) 
n<7 



DISPLAY NAME AND VALU 



DUMP 
PDUMP 


a. 
i 

b. 
I 

f. 

i 


b i 


' f ! 


,...,a ,b ,f ) 

n n n 

First word of area to be dumped 
Last word of area to be dumped 
Dump format indicators: 

or 3 is octal dump 

1 is real dump 

2 is integer dump 


DVCHK 


(i) 






DIVISIC 




i=i 


if 


occurred 




i=2 


if 


no 


t 



DUMP STORAG 



FTNBIN(l,n,IRAY) 
READEC(cm,ecs,n) 

WRITEC(cm,ecs,n) 

OPENMS(u,ix,l,p) 
READMS(u,fwa,n,i) 

WRITMS(u,fwa,n,i) 
STINDX(u,ix,l) 

EXIT 

OVERFL (j) 

j=l if occurred 
j=2 if not 

REMARK (nH ... ) 



BINARY BLOCKING OF I/O 
TRANSFERS WORDS FROM ECS TO CENT 

MEMORY 
TRANSFERS WORDS FROM CENTRAL 

MEMORY TO ECS 
OPENS MASS STORAGE FILE 
TRANSFERS DATA FROM MASS STORAGE 

FILE 
TRANSFERS DATA TO MASS STORAGE Fl 
CHANGES THE FILE INDEX 

TERMINATE EXECUTIO 

OVERFLOW TE5 



MESSAGE TO SYSTEM DAYFII 



Displays it on the console display. nH indicates n 
Hollerith characters in the remark; n < 40 



SECOND(i) 



TIME IN SECONDS FROM DEADSTART 



SLITE (i) 

SLITET (i,j) 

j=l if on 
j=2 if off 

SSWTCH (i,j) 

j=l if down 
j=2 if up 

SEGMENT(fn,e,a,lib,m) 



TURN ON SENSE LIGHT I 
TEST SENSE LIGHT I 

TEST SENSE SWITCH I 

LOAD RELOCATABLE SEGMENT 

Variable name of location containing left-justified 

display code file name to be loaded 

Segment load level, 00-77- 

Simple or subscripted variable array name containing 

list of segments, sections, subprograms to be loaded 

Load unsatisfied externals from system library if zero 

or blank 

Do not print map of segment load if zero or blank 



OVERLAYtfrvl^l^p) 



LOAD ABSOLUTE OVERLAY 



Variable name of location containing left-justified 

display code file name to be loaded 

Primary overlay level 

Secondary overlay level 

If 6HRECALL, overlay is not reloaded if already in 

memory 



FORTRAN VI DIFFERENCES 

END statement in function or 
subroutine acts as RETURN 

DO loop not executed if initial 
value exceeds terminal value 



12 



FORTRAN II AND FORTRAN IV 
SUBPROGRAMS 

Column 1 Indicators 

D Double precision mode replacement 

I Complex mode replacement 

B Masking replacement 

F EXTERNAL 

FORTRAN II statements which contain a B in column 1 (Boolean) are 
evaluated as masking expressions. The operator equivalences are: 

FORTRAN FORTRAN II 

.AND. 
.NOT. 
.OR. + 

/ 

Statements 

IF (l)n 1 ,n 2 

If I is a variable, the true branch is taken only if the 
value of I is negative. 

SENSE LIGHT i 

i must be integer constant 
IF (SENSE LIGHT \)n y n 2 

i must be integer constant 
IF (SENSE SWITCH i)n.,n 



2 

must be integer constant 



IF DIVIDE CHECK n.,n 



IF QUOTIENT OVERFLOW n] ,n, 

IF ACCUMULATOR OVERFLOW n„n 



l'"2 



FORTRAN II Mode Subprogram Only 



EQUIVALENCE may re-order COMMON. 

Function names must end with F and be 4-7 characters. 

Function names must begin with X if the value is integer and 
any other alphabetic character if the value is real. 



CHARACTER CODES 






Character 


External 


Console 


Punch 




Code 


Display 
Code 


Card 


A 


61 


01 


12,1 


B 


62 


02 


12,2 


C 


63 


03 


12,3 


D 


64 


04 


12,4 


E 


65 


05 


12,5 


F 


66 


06 


12,6 


G 


67 


07 


12,7 


H 


70 


10 


12,8 


1 


71 


11 


12,9 


J 


41 


12 


11,1 


K 


42 


13 


11,2 


L 


43 


14 


11,3 


M 


44 


15 


11,4 


N 


45 


16 


11,5 


O 


46 


17 


11,6 


P 


47 


20 


11,7 


Q 


50 


21 


11,8 


R 


51 


22 


11,9 


S 


22 


23 


0,2 


T 


23 


24 


0,3 


U 


24 


25 


0,4 


V 


25 


26 


0,5 


w 


26 


27 


0,6 


X 


27 


30 


°,7 


Y 


30 


31 


0,8 


z 


31 


32 


0,9 





12 


33 





1 


01 


34 


1 


1 2 


02 


35 


2 


3 


03 


36 


3 


1 4 


04 


37 


4 


1 5 


05 


40 


5 


6 


06 


41 


6 


7 


07 


42 


7 


1 8 


10 


43 


8 


9 


11 


44 


9 


1 + 


21 


50 


0,1 


60 


45 


12 


1 


40 


46 


11 


1 blank 


20 


55 


space 




73 


57 


12,8,3 


• 
1 ) 


74 


52 


12,8,4 


S 


53 


53 


11,8,3 




54 


47 


11,8,4 


1 


33 


56 


0,8,3 



14 



34 


51 


0,8,4 


13 


54 


8,3 


36 


60 


0,8,6 


17 


61 


8,7 


32 


62 


0,8,2 


00 


63 


8,2 


14 


64 


8,4 


35 


65 


0,8,5 


52 


66 


11,0 


37 


67 


0,8,7 


55 


70 


11,8,5 


56 


71 


11,8,6 


72 


72 


12,0 


57 


73 


11,8,7 


15 


74 


8,5 


75 


75 


12,8,5 


76 


76 


12,8,6 



character 77, is restricted in FORTRAN 
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FORTRAN CODING FORM 




TrS^ 






Mil 


HUM Ull PUt 




jBS 


::™. ::r~. ".'■—. 


EX; 


























































































































































































..... 



































































































































































































































































Each line of a FORTRAN coding form represents the four fields of a 
punched card. 

Columns 



Field 

Statement Number 
Continuation 
Statement 
Identification 



1-5 
6 

7-72 
73-80 



Statements may be identified by an integer from 1 through 99999. If 
a S, C or * appears in column 1, the remainder of the card is ignored 
by the compiler, but printed with the source listing as a comment. 

A S may be used to separate multiple statements on a card. However, 
DATA and FORMAT statements cannot appear on a card separated in 
this manner . 

A punch other than zero in column 6 identifies a card as a continua- 
tion of the statement from the preceding card. 

A statement is written in columns 7 through 72; blanks are ignored. 

Columns 73-80 may contain identification and serial numbers. These 
columns are ignored, but printed with the program listing. 

The entire 80 columns may be used for data input. 
A period in column 1 signals page eject. 



16 



FORTRAN SOURCE DECK 
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FORTRAN CONTROL CARD 

RUN(cm,fl,bl,if,of,rf,lc,as,cs) 

cm Compiler mode option; if omitted, assume G; if un- 

recognized, assume S. 

G Compile and execute, nolist unless explicit 

LIST cards appear in the deck 

S Compile with source list, no execute 

P Compile with source list and punch deck on 

file PUNCHB, no execute 

L Compile with source and object list, no execute 

M Compile with source and object list, produce a 

punch deck on file PUNCHB, no execute 

• f| Object program field lengths; if omitted, it is set equal 

to the field length at compile time. 

bl Object program I/O buffer lengthsg; if omitted, assumed 

to be 2023 B. 

if File name for compiler input; if omitted assumed to be 

INPUT. 

of File name for compiler output; if omitted, assumed to be 

OUTPUT. 

r f File name on which the binary information is always 

written; if omitted, assumed to be LGO. 

Ic Line-limit (octal) on the OUTPUT file of an object 

program. If omitted, assumed to be lOOOOg. If the line 
count exceeds the specified line limit, the job is 
terminated. 

as If non-zero or non-blank, the ASA switch causes the 

ASA I/O list/format interaction at execution time. 
It has no effect on the compilation method. 

cs Cross-reference switch; if non-zero a cross reference 

listing is produced. 

If parameter list is omitted, RUN must be followed by a 
period. 

18 



FORTRAN COMPILATION 




FORTRAN COMPILATION AND EXECUTION 
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FORTRAN COMPILATION, COMPASS ASSEMBLY 
AND EXECUTION 
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EXECUTION WITH BINARY DECKS 




FORTRAN COMPILE AND EXECUTE 
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FORTRAN COMPILE AND EXECUTE 




/PROOF:-.'.'. -LFTLD 'INPUT, OUT PUT, TAPEI ,TAFE:.,TAPt 



-'. )AD,LGO. 

/load,input. 

/liUN(S) 
/REQUEST (TAPE 1) 



_ / ■ 1UEST (TAPE 6) 

/REQUEST (TAPES) 

/MOP001 ,2,400,27000. 
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FORTRAN 

COMPILE AND EXECUTE WITH MIXED DECK 




24 



FORTRAN 
COMPILE AND PRODUCE BINARY CARDS 



PROGRAM BOB(INPUT,OUTPUT,TAPEI 



'RA 6600,7,100,40000. 
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FORTRAN 

COMPILE AND EXECUTE 




26 



LOAD AND EXECUTE BINARY PROGRAM 



/in? 



/CDC1 11,6,400,20000. 



2/ 



COMPILE ONCE AND EXECUTE 
WITH DIFFERENT DATA DECKS 
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OVERLAY AND SEGMENT CONTROL CARDS 

SEGMENT (sn,pn 1 ,pn 2 ,...,pn n ) SEGMENT DEFINITIONS 

sn Segment name to write on 

pn. Subprogram or section name 

SEGZERO(sn,pn r pn 2 ,. . .,pn n ) FIRST SEGMENT DEFINITION 

sn Segment name to write on 

pn. Subprogram or section name 

SECTION(sn,pn 1 ,pn 2 ,...,pn n ) SECTION DEFINITION 

sn Section name to write on 

pn. Subprogram name 

OVERLAY(fn,l,,l 2 ,cnnnnnn) OVERLAY DEFINITION 

fn File name to write on; may be omitted after first, 

if same file 
I Primary level number; for first overlay card 

L Secondary level number; for first overlay card 

cnnnnnn Optional: load overlay nnnnnn„ words from start of 

blank common 
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FORTRAN LOAD AND EXECUTE SEGMENTS 




OVERLAY PREPARATION OF 0,0; 1,0; AND 1,1 




NOTES 
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CONTROL DATA 



CORPORATION 
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